library TestLib;


uses
  SysUtils,
  Classes,
  Windows, Messages;

procedure DoSomething; stdcall; export;
begin
    MessageBox(0,'Testing library','note',MB_OK);
end;



procedure DllMain(reason:DWORD);
begin
   case reason of
      DLL_PROCESS_ATTACH:
               MessageBox(0,'Process attach','note',MB_OK);
      DLL_PROCESS_DETACH:
               MessageBox(0,'Process detach','note',MB_OK);
      DLL_THREAD_ATTACH:
               MessageBox(0,'Thread attach','note',MB_OK);
      DLL_THREAD_DETACH:
               MessageBox(0,'Process detach','note',MB_OK);
   end;
end;

exports
   DoSomething index 1;

begin
  
   DllProc:=@DllMain;   
   DllMain(DLL_PROCESS_ATTACH);
end.
